clean__bac__clean_names<-function(data_bac){
  #2017
  data_bac$nume<-gsub(paste("Ä","°",sep=""),"I",data_bac$nume) # A with two dots and diamond to I
  data_bac$nume<-gsub(paste("È","€",sep=""),"E",data_bac$nume) # E with \ accent and Euro sign to E
  data_bac$nume<-gsub(paste("Å","¸",sep=""),"Y",data_bac$nume) #A with small hat and weird comma to Y
  data_bac$nume<-gsub(paste("Å",chr(160),sep=""),"S",data_bac$nume) #A with small hat and weird space to S (Ș)
  data_bac$nume<-gsub(paste("Â",chr(160),sep=""),"",data_bac$nume) #A with hat and weird space to blank
  data_bac$nume<-gsub(paste("A","Â","ƒ",sep=""),"",data_bac$nume) # A with A hat and weird hand script f to A (Ă in Răzvan)
  data_bac$nume<-gsub(paste("Â",chr(129),sep=""),"",data_bac$nume) # A hat with \u0081 to blank
  data_bac$nume<-gsub(paste(chr(129),sep=""),"",data_bac$nume) # A hat with \u0081 to blank
  data_bac$nume<-gsub("/","-",data_bac$nume) # / to -
  data_bac$nume<-gsub(" - ","-",data_bac$nume)
 
   #2016
  #data_bac<-data_adm
  #data_bac$nume<-gsub(chr(226),chr(45),data_bac$nume) # minus to "-"
  #data_bac$nume<-gsub(chr(128),chr(45),data_bac$nume) # minus to "-"
  #data_bac$nume<-gsub(chr(147),chr(45),data_bac$nume) # minus to "-" –
  data_bac$nume<-gsub("–",chr(45),data_bac$nume) # minus to "-" –
  data_bac$nume<-gsub(chr(160),"",data_bac$nume) # weird space to space
  data_bac$nume<-gsub(paste("\\","t",sep=""),"",data_bac$nume) #\t to blank
  if (!is.null(dim(data_bac[grepl("Anonimizat",data_bac$nume),]$nume))){
  data_bac[grepl("Anonimizat",data_bac$nume),]$nume<-NA #"anonimizat" to NULL
  }
  data_bac$nume<-gsub("\\(\\*\\)","",data_bac$nume) #(*) to blank 
  data_bac$nume<-gsub("_","-",data_bac$nume) #_ to - (1 occurence)
  data_bac$nume<-gsub("´","'",data_bac$nume) # ´ to ' (1 occurence)
  data_bac$nume<-gsub(paste("Â",chr(152),sep=""),"",data_bac$nume) # A hat with \u0098 to blank
  data_bac$nume<-gsub(paste(chr(200),chr(152),sep=""),"",data_bac$nume) # Ș with \u0098 to blank
  data_bac$nume<-gsub(paste(chr(152),sep=""),"",data_bac$nume) # \u0098 to blank 
  data_bac$nume<-gsub("Ș","S",data_bac$nume)
  data_bac$nume<-gsub("Ş","S",data_bac$nume)
  data_bac$nume<-gsub("Ț","T",data_bac$nume)
  data_bac$nume<-gsub("Ţ","T",data_bac$nume)
  data_bac$nume<-gsub("Ă","A",data_bac$nume)
  data_bac$nume<-gsub("Ă","A",data_bac$nume)
  data_bac$nume<-gsub("Ã","A",data_bac$nume)
  data_bac$nume<-gsub("Â","A",data_bac$nume)
  data_bac$nume<-gsub("Ä","A",data_bac$nume)
  data_bac$nume<-gsub("Á","A",data_bac$nume)
  data_bac$nume<-gsub("Ӧ","O",data_bac$nume)
  data_bac$nume<-gsub("Č","C",data_bac$nume)
  data_bac$nume<-gsub("Ć","C",data_bac$nume)
  data_bac$nume<-gsub("Ç","C",data_bac$nume)
  data_bac$nume<-gsub("É","E",data_bac$nume)
  data_bac$nume<-gsub("Ë","E",data_bac$nume)
  data_bac$nume<-gsub("Ğ","G",data_bac$nume)
  data_bac$nume<-gsub("İ","I",data_bac$nume)
  data_bac$nume<-gsub("Í","I",data_bac$nume)
  data_bac$nume<-gsub("Î","I",data_bac$nume)
  data_bac$nume<-gsub("Ő","O",data_bac$nume)
  data_bac$nume<-gsub("Ö","O",data_bac$nume)
  data_bac$nume<-gsub("Ó","O",data_bac$nume)
  data_bac$nume<-gsub("Õ","O",data_bac$nume)
  data_bac$nume<-gsub("Š","S",data_bac$nume)
  data_bac$nume<-gsub("Ű","U",data_bac$nume)
  data_bac$nume<-gsub("Ú","U",data_bac$nume)
  data_bac$nume<-gsub("Ü","U",data_bac$nume)
  data_bac$nume<-gsub("Ý","Y",data_bac$nume)

  
  
  data_bac$nume<-gsub("6","",data_bac$nume) # (1 occurence)
  data_bac$nume<-gsub("casatorita","CASATORITA",data_bac$nume) # (married)
  data_bac$nume<-gsub("căsătorită","CASATORITA",data_bac$nume) # (married)
  data_bac$nume<-gsub("căsăt","CASATORITA",data_bac$nume) # (married)
  data_bac$nume<-gsub("casat","CASATORITA",data_bac$nume) # (married)
  data_bac$nume<-gsub("căs","CASATORITA",data_bac$nume) # (married)
  data_bac$nume<-gsub("cas","CASATORITA",data_bac$nume) # (married)

  #2015
  data_bac$nume<-toupper(data_bac$nume)
  data_bac$nume<-gsub("Ǎ","A",data_bac$nume)
  data_bac$nume<-gsub("Ȋ","I",data_bac$nume)
  data_bac$nume<-gsub("Ṣ","S",data_bac$nume)
  data_bac$nume<-gsub("Ṭ","T",data_bac$nume)
  data_bac$nume<-gsub("Ô","O",data_bac$nume)
  data_bac$nume<-gsub("È","E",data_bac$nume)
  data_bac$nume<-gsub(chr(131),"",data_bac$nume) # \u0083 to blank 
  data_bac$nume<-gsub(chr(144),"",data_bac$nume) # \u0090 to blank 
  
  #2014
  data_bac$nume<-gsub(paste("Ĺ","Ž",sep=""),"S",data_bac$nume) # L and Z to S (sh actually)
  data_bac$nume<-gsub(paste("Ĺ","Ł",sep=""),"T",data_bac$nume) # L and Z to S (sh actually)
  data_bac$nume<-gsub("Ž","Z",data_bac$nume)
  data_bac$nume<-gsub("Ś","S",data_bac$nume)
  data_bac$nume<-gsub("‚","",data_bac$nume)
  
  #2013
  data_bac$nume<-gsub("Ý","Y",data_bac$nume)
  
  #2018
  data_bac$nume<-gsub("À","A",data_bac$nume)
  data_bac$nume<-gsub("Ê","E",data_bac$nume)
  data_bac$nume<-gsub("Î","I",data_bac$nume)
  
  data_bac$nume<-gsub(",","",data_bac$nume) #comma to blank
  data_bac$nume<-gsub("\\.","",data_bac$nume) # . to blank
  

  
  data_bac$nume<-gsub("\\s+(?=\\p{Pd})|(?<=\\p{Pd})\\s+", "", data_bac$nume, perl=TRUE) # suppress space before -
  data_bac$nume<-trimws(data_bac$nume, which = c("both")) #trim white space leading and lagging
  data_bac$nume<-gsub("\\s+", " ", trimws(data_bac$nume))
  
  data_bac$nume<-gsub("-", " ", trimws(data_bac$nume))

  return(data_bac$nume)
}